In this notebook we are comparing the use of Alevin-fry and Spaceranger for quantifying spatial transcriptomics libraries. Two spatial transcriptomic libraries were quantified using Alevin-fry and Spaceranger and the results were combined following the Alevin-fry tutorial. We are comparing that to if we were to not integrate the Spaceranger data with Alevin-fry and only use Spaceranger. For simplicity we will only look at one library, SCPCR000372.

Set Up

library(gridExtra)

Attaching package: ‘gridExtra’

The following object is masked from ‘package:Biobase’:

    combine

The following object is masked from ‘package:BiocGenerics’:

    combine
# load in benchmarking functions that will be used for copying data and generating sample tables
function_path <- file.path(".." ,"benchmarking-functions", "R")
file.path(function_path, list.files(function_path, pattern = "*.R$")) %>%
  purrr::walk(source)
# set up file paths 
base_dir <- here::here()

# output folder to store alevin-fry and cellranger quants from S3
data_dir <- file.path(base_dir, "data", "spatial") 
s3_out <- file.path(data_dir, "data", "quants")

# results directory 
results_dir <- file.path(data_dir, "results")

# sample name
sample_id <- c("SCPCR000372")

# create directories
if(!dir.exists(data_dir)){
  dir.create(data_dir, recursive = TRUE)
}

if(!dir.exists(results_dir)){
  dir.create(results_dir, recursive = TRUE)
}
mito_file <- file.path(base_dir, "sample-info", "Homo_sapiens.GRCh38.103.mitogenes.txt")
  
# read in mito genes 
mito_genes <- readr::read_tsv(mito_file, col_names = "gene_id")
Rows: 111 Columns: 1
── Column specification ──────────────────────────────────────────────────────────────────────────────────────
Delimiter: "\t"
chr (1): gene_id

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
mito_genes <- mito_genes %>%
  dplyr::pull(gene_id) %>%
  unique()

Alevin-fry + Spaceranger versus Spaceranger Only

Now let’s take a look at comparing the two methods of using Alevin-fry + Spaceranger to only Spaceranger for quantification. To do this, we will read in the Alevin-fry + Spaceranger combined and Spaceranger only SpatialExperiment objects separately and then merge them into one list before grabbing the per cell and per gene quality metrics.

Create Spatial Experiments

# get path to fry output directory 
fry_dir <- file.path(s3_out, "alevin-fry-knee", sample_id)
fry_dir <- paste0(fry_dir, "-spliced_intron_txome_k31-salign-cr-like-em-knee")

# paths to spatial folders 
cellranger_folder <- paste0(sample_id, "-cdna-spatial")
spatial_dir <- file.path(s3_out, "cellranger", cellranger_folder, "outs", "spatial")
# read in combined fry and spaceranger spe 
fry_spe <- create_fry_spaceranger_spe(fry_dir, 
                                       spatial_dir, 
                                       sample_id)
Rows: 4992 Columns: 6
── Column specification ──────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (1): barcode
dbl (5): in_tissue, array_row, array_col, pxl_row_in_fullres, pxl_col_in_fullres

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
Joining, by = "barcode"
# spaceranger output paths
spaceranger_out <- file.path(s3_out, "cellranger", cellranger_folder, "outs")

# read in spaceranger output directly using read10XVisium
spaceranger_spe <- create_spaceranger_spe(spaceranger_out, sample_id)

Per Spot QC Metrics

Now that we have read in the data and created our two SpatialExperiment objects, we can go ahead and combine them into one list and then calculate the per spot QC metrics using scuttle::addPerCellQCMetrics().

# create one list with both spe's together
all_spe_list <- list(fry_spe, spaceranger_spe)
names(all_spe_list) <- c("alevin-fry", "spaceranger")

# calculate per cell QC and output to a combined data frame with plotting 
all_spe_list <- all_spe_list %>%
    purrr::map(
      ~ scuttle::addPerCellQCMetrics(.x, 
                                     subsets = list(mito = mito_genes[mito_genes %in% rownames(.x)]))) %>%
  purrr::map(scuttle::addPerFeatureQCMetrics)

After adding in the per spot QC metrics to both of the spe’s, we want to extract the colData from each spe and create a data frame that we can use for plotting. We will also need some information about each sample and how it was run, so we will create a sample metadata table, sample_info_df that will then be merged with the colData.

# create sample info dataframe to be joined with per spot dataframe later
sample_info_df <- quant_info_table(data_dir= s3_out, 
                 tools = c("cellranger", "alevin-fry-knee"),
                 samples = sample_id) %>%
  # convert cellranger to spaceranger 
  dplyr::mutate(tool = ifelse(tool == "cellranger", "spaceranger", tool))

When we convert the colData to a data frame we use the custom function, spatial_coldata_to_df() to do so and apply it to each spe in our list.

# join coldata dataframe with sample info
coldata_df <- purrr::map_df(all_spe_list, spatial_coldata_to_df, .id = "tool") %>%
  # remove extra -1 from spaceranger barcodes
  dplyr::mutate(spot_id = gsub("-1", "", spot_id)) %>%
  dplyr::left_join(sample_info_df,
                   by = c("tool"))

Now we only want to filter our data frame to contain spots that are shared between both tools and those that are found to be overlapping with the tissue.

# identify shared spots only 
spot_counts <- coldata_df %>%  
  dplyr::count(spot_id, sample)

common_spots <- spot_counts %>%
  dplyr::filter(n == 2) %>%
  dplyr::pull(spot_id)

coldata_df_common <- coldata_df %>%
  dplyr::filter(spot_id %in% common_spots,
                # only include spots that overlap with tissue
                in_tissue == 1)

We will also need to filter the spe’s directly based on spots that are present in the tissue, so we create a small function to do this and then apply it to both spe’s in the list.

# we will also want to filter the spe's directly 
filter_spe <- function(spe){
  spe <- spe[, spatialData(spe)$in_tissue == 1]
}

all_spe_filter <- all_spe_list %>%
  purrr::map(filter_spe)

When we look at our results, we will also want to visualize them so we will make a custom function to plot the results. Because of the bug that is present in SpatialExperiment::read10XVisium() function, we will make two separate functions, one for spaceranger only spes and one for alevin-fry + spaceranger spes.

# custom function for plotting spe results and coloring by column of colData of choice
plot_fry_spe <- function(spe, sample, column){
  # plot spots only 
  p1 <- ggspavis::plotSpots(spe, 
                            x_coord = "pxl_col_in_fullres", 
                            y_coord = "pxl_row_in_fullres", 
                            annotate = column) +
    scale_color_viridis_c()
  
  # plot with tissue underneath
  p2 <- ggspavis::plotVisium(spe, 
                                   x_coord = "pxl_col_in_fullres", 
                                   y_coord = "pxl_row_in_fullres", 
                                   fill = column) +
    scale_fill_viridis_c()
  
  # arrange plots and add sample name as title 
  grid.arrange(p1, p2, nrow = 1, top = grid::textGrob(sample))
}


plot_spaceranger_spe <- function(spe, sample, column){
  # plot spots only 
  p1 <- ggspavis::plotSpots(spe, 
                            # switch the order of row and col to flip the image 
                            x_coord = "pxl_row_in_fullres", 
                            y_coord = "pxl_col_in_fullres", 
                            annotate = column) +
    scale_color_viridis_c() 
  
  # plot with tissue underneath
  p2 <- ggspavis::plotVisium(spe, 
                                   x_coord = "pxl_row_in_fullres", 
                                   y_coord = "pxl_col_in_fullres", 
                                   fill = column) +
    scale_fill_viridis_c()
  
  # arrange plots and add sample name as title 
  grid.arrange(p1, p2, nrow = 1, top = grid::textGrob(sample))
  
}

First we will look at the per cell metrics: mitochondrial reads per cell, total UMI per cell, and total genes detected per cell.

# % mitochondrial reads/ spot 
ggplot(coldata_df_common, aes(x = tool, y = subsets_mito_percent, fill = tool)) + 
  geom_boxplot() +
  theme_classic() + 
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) + 
  ylab("Mito Percent") + 
  xlab("")

plot_fry_spe(all_spe_filter$`alevin-fry`, "alevin-fry", "subsets_mito_percent")
Scale for 'colour' is already present. Adding another scale for 'colour', which will replace the
existing scale.
Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the
existing scale.

plot_spaceranger_spe(all_spe_filter$spaceranger, "spaceranger", "subsets_mito_percent")
Scale for 'colour' is already present. Adding another scale for 'colour', which will replace the
existing scale.
Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the
existing scale.

Overall it looks like mitochondrial content is low and fairly similar across both tools.

# total UMI/ spot 
ggplot(coldata_df_common, aes(x = sum, color = tool)) + 
  geom_density() + 
  theme_classic() + 
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) + 
  ylab("UMI/spot") + 
  xlab("")

plot_fry_spe(all_spe_filter$`alevin-fry`, "alevin-fry", "sum")
Scale for 'colour' is already present. Adding another scale for 'colour', which will replace the
existing scale.
Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the
existing scale.

plot_spaceranger_spe(all_spe_filter$spaceranger, "spaceranger", "sum")
Scale for 'colour' is already present. Adding another scale for 'colour', which will replace the
existing scale.
Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the
existing scale.

# total genes/ spot 
ggplot(coldata_df_common, aes(x = detected, color = tool)) + 
  geom_density() + 
  theme_classic() + 
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) + 
  ylab("Genes detected/spot") + 
  xlab("") 

plot_fry_spe(all_spe_filter$`alevin-fry`, "alevin-fry", "detected")
Scale for 'colour' is already present. Adding another scale for 'colour', which will replace the
existing scale.
Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the
existing scale.

plot_spaceranger_spe(all_spe_filter$spaceranger, "spaceranger", "detected")
Scale for 'colour' is already present. Adding another scale for 'colour', which will replace the
existing scale.
Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the
existing scale.

Generally it looks like both tools are fairly similar in the number of UMI/cell and genes detected/cell.

Per Gene QC Metrics

Let’s also look at the correlation of mean gene expression across shared genes. We will first need to calculate the per feature QC on the filtered spes after removing spots not present in the tissue and then grab the rowData and combine into a data frame used for plotting.

all_spe_filter <- all_spe_filter %>%
  purrr::map(scuttle::addPerFeatureQCMetrics)
# grab rowdata and combine with sample info
rowdata_df <- purrr::map_df(all_spe_filter, spatial_rowdata_to_df, .id = "tool") %>%
  dplyr::left_join(sample_info_df,
                   by = c("tool"))

We then want to filter out any lowly detected genes, (detected < 5.0) and restrict our analysis to those genes that are found in both tools.

gene_counts <- rowdata_df %>% 
  # remove genes that have a low frequency of being detected
  dplyr::filter(detected >= 5.0) %>%
  dplyr::count(gene_id, sample)

# restrict to only common genes 
common_genes <- gene_counts %>%
  dplyr::filter(n == 2) %>%
  dplyr::pull(gene_id)

rowdata_df_common <- rowdata_df %>%
  dplyr::filter(
    (gene_id %in% common_genes) 
  )
# create a table to calculate correlation between mean gene expression
rowdata_cor <- rowdata_df_common %>%
  dplyr::select(tool, gene_id, sample, mean) %>%
  # spread the mean expression stats to one column per caller
  tidyr::pivot_wider(id_cols = c(gene_id, sample),
                     names_from = c("tool"),
                     values_from = mean) %>%
  # drop rows with NA values to ease correlation calculation
  tidyr::drop_na()
# look at correlation between the two tools
rowdata_cor %>% 
  dplyr::group_by(sample) %>%
  dplyr::summarize(
    alevin_fry_knee_spaceranger_cor = cor(`spaceranger`, `alevin-fry`, method = "spearman")
  )
# mean gene expression across shared genes 
ggplot(rowdata_cor, aes(x = `spaceranger`, y = `alevin-fry`)) +
  geom_point(size = 0.5, alpha = 0.1) + 
  scale_x_log10() + 
  scale_y_log10() + 
  labs(x = "Spaceranger mean gene expression", y = "Alevin Fry Mean gene expression") + 
  theme_classic()

Correlation appears to be quite high between mean gene expression in Spaceranger and Alevin-fry, however, we do see that there is a subset of genes that have higher gene expression in Spaceranger than in Alevin-fry and are slightly off the diagonal.

Shared genes across tools

The final thing we will look at is the overlap of genes detected in each tool. First we need to filter the SpatialExperiment objects to only have spots that are found in both tools and then we filter to include only genes that are found in both indices before looking at the overlap.

# make a function to filter sces by subset of spots and re-calculate feature stats
filter_spe <- function(spe, spots){
  # remove "-1" at end of barcode for spaceranger spes
  colnames(spe) <- gsub("-1", "", colnames(spe))
  cells_to_keep <- colnames(spe) %in% spots
  rowData(spe) <- NULL
  spe[, cells_to_keep] %>%
    scuttle::addPerFeatureQCMetrics()
}
# filter all spes to only have common spots 
spe_list_common <- all_spe_filter %>%
  purrr::map(filter_spe, spots = common_spots)

# grab rowdata from filtered sces 
rowdata_df_filtered <- purrr::map_df(spe_list_common, spatial_rowdata_to_df, .id = "tool") %>%
  dplyr::left_join(sample_info_df,
                   by = c("tool"))
# get genes common in all tools
common_genes <- rowdata_df_filtered %>%
  dplyr::select(gene_id, tool) %>%
  dplyr::distinct() %>%
  dplyr::group_by(gene_id) %>%
  dplyr::tally() %>%
  # filter for genes found in both spaceranger and alevin-fry
  dplyr::filter(n == 2) %>%
  dplyr::pull(gene_id)

# filter rowdata_df to only include genes found in all tools and genes with mean > 0 and detected > 0 in all cells
rowdata_df_filtered <- rowdata_df_filtered %>% 
  dplyr::filter(gene_id %in% common_genes) %>%
  dplyr::filter(mean > 0 & detected > 0)
# create upset plot 
gene_detect_df <- rowdata_df_filtered %>%
  dplyr::group_by(gene_id) %>%
  dplyr::summarise(tools_detected = list(unique(tool)))

ggplot(gene_detect_df, aes(x = tools_detected)) +
  geom_bar() +
  scale_x_upset(n_intersections = 3)

Similar to with the single-cell data most genes are detected in both Alevin-fry and Spaceranger which is good.

Concluding thoughts

  • Alevin-fry and Spaceranger only result in similar distributions of UMI/spot and genes/spot, although it is not quite as nice as the overlay you see with single-cell libraries.
  • Both tools also show high correlation in mean gene expression and high overlap in the genes that are detected.

Session Info

sessioninfo::session_info()
─ Session info  🌓  💇  💃🏿   ───────────────────────────────────────────────────────────────────────
 hash: first quarter moon, person getting haircut, woman dancing: dark skin tone

 setting  value
 version  R version 4.1.1 (2021-08-10)
 os       macOS Catalina 10.15.7
 system   x86_64, darwin17.0
 ui       RStudio
 language (EN)
 collate  en_US.UTF-8
 ctype    en_US.UTF-8
 tz       America/Chicago
 date     2021-11-22
 rstudio  1.4.1106 Tiger Daylily (desktop)
 pandoc   2.11.4 @ /Applications/RStudio.app/Contents/MacOS/pandoc/ (via rmarkdown)

─ Packages ─────────────────────────────────────────────────────────────────────────────────────────
 ! package              * version  date (UTC) lib source
   assertthat             0.2.1    2019-03-21 [1] CRAN (R 4.1.0)
   beachmat               2.10.0   2021-10-26 [1] Bioconductor
   Biobase              * 2.54.0   2021-10-26 [1] Bioconductor
   BiocGenerics         * 0.40.0   2021-10-26 [1] Bioconductor
   BiocManager            1.30.16  2021-06-15 [1] CRAN (R 4.1.0)
 V BiocParallel           1.28.0   2021-11-18 [1] Bioconductor (on disk 1.28.1)
   bit                    4.0.4    2020-08-04 [1] CRAN (R 4.1.0)
   bit64                  4.0.5    2020-08-30 [1] CRAN (R 4.1.0)
   bitops                 1.0-7    2021-04-24 [1] CRAN (R 4.1.0)
   bslib                  0.3.1    2021-10-06 [1] CRAN (R 4.1.0)
   cli                    3.1.0    2021-10-27 [1] CRAN (R 4.1.1)
   colorspace             2.0-2    2021-06-24 [1] CRAN (R 4.1.0)
   crayon                 1.4.2    2021-10-29 [1] CRAN (R 4.1.0)
   DBI                    1.1.1    2021-01-15 [1] CRAN (R 4.1.0)
   DelayedArray           0.20.0   2021-10-26 [1] Bioconductor
   DelayedMatrixStats     1.16.0   2021-10-26 [1] Bioconductor
   digest                 0.6.28   2021-09-23 [1] CRAN (R 4.1.0)
   dplyr                  1.0.7    2021-06-18 [1] CRAN (R 4.1.0)
   dqrng                  0.3.0    2021-05-01 [1] CRAN (R 4.1.0)
   DropletUtils           1.14.1   2021-11-08 [1] Bioconductor
   edgeR                  3.36.0   2021-10-26 [1] Bioconductor
   ellipsis               0.3.2    2021-04-29 [1] CRAN (R 4.1.0)
   evaluate               0.14     2019-05-28 [1] CRAN (R 4.1.0)
   fansi                  0.5.0    2021-05-25 [1] CRAN (R 4.1.0)
   farver                 2.1.0    2021-02-28 [1] CRAN (R 4.1.0)
   fastmap                1.1.0    2021-01-25 [1] CRAN (R 4.1.0)
   generics               0.1.1    2021-10-25 [1] CRAN (R 4.1.0)
   GenomeInfoDb         * 1.30.0   2021-10-26 [1] Bioconductor
   GenomeInfoDbData       1.2.7    2021-11-16 [1] Bioconductor
 V GenomicRanges        * 1.46.0   2021-11-18 [1] Bioconductor (on disk 1.46.1)
   ggplot2              * 3.3.5    2021-06-25 [1] CRAN (R 4.1.0)
   ggside                 0.1.3    2021-10-24 [1] CRAN (R 4.1.0)
   ggspavis               1.0.0    2021-10-26 [1] Bioconductor
   ggupset              * 0.3.0    2020-05-05 [1] CRAN (R 4.1.0)
   glue                   1.5.0    2021-11-07 [1] CRAN (R 4.1.0)
   gridExtra            * 2.3      2017-09-09 [1] CRAN (R 4.1.0)
   grr                    0.9.5    2016-08-26 [1] CRAN (R 4.1.0)
   gtable                 0.3.0    2019-03-25 [1] CRAN (R 4.1.0)
   HDF5Array              1.22.1   2021-11-14 [1] Bioconductor
   here                   1.0.1    2020-12-13 [1] CRAN (R 4.1.0)
   hms                    1.1.1    2021-09-26 [1] CRAN (R 4.1.0)
   htmltools              0.5.2    2021-08-25 [1] CRAN (R 4.1.0)
   IRanges              * 2.28.0   2021-10-26 [1] Bioconductor
   jquerylib              0.1.4    2021-04-26 [1] CRAN (R 4.1.0)
   jsonlite               1.7.2    2020-12-09 [1] CRAN (R 4.1.0)
   knitr                  1.36     2021-09-29 [1] CRAN (R 4.1.0)
   labeling               0.4.2    2020-10-20 [1] CRAN (R 4.1.0)
   lattice                0.20-45  2021-09-22 [1] CRAN (R 4.1.0)
   lifecycle              1.0.1    2021-09-24 [1] CRAN (R 4.1.0)
   limma                  3.50.0   2021-10-26 [1] Bioconductor
   locfit                 1.5-9.4  2020-03-25 [1] CRAN (R 4.1.0)
   magick                 2.7.3    2021-08-18 [1] CRAN (R 4.1.0)
   magrittr             * 2.0.1    2020-11-17 [1] CRAN (R 4.1.0)
   Matrix                 1.3-4    2021-06-01 [1] CRAN (R 4.1.1)
   Matrix.utils           0.9.8    2020-02-26 [1] CRAN (R 4.1.0)
   MatrixGenerics       * 1.6.0    2021-10-26 [1] Bioconductor
   matrixStats          * 0.61.0   2021-09-17 [1] CRAN (R 4.1.0)
   munsell                0.5.0    2018-06-12 [1] CRAN (R 4.1.0)
   pillar                 1.6.4    2021-10-18 [1] CRAN (R 4.1.1)
   pkgconfig              2.0.3    2019-09-22 [1] CRAN (R 4.1.0)
   purrr                  0.3.4    2020-04-17 [1] CRAN (R 4.1.0)
   R.methodsS3            1.8.1    2020-08-26 [1] CRAN (R 4.1.0)
   R.oo                   1.24.0   2020-08-26 [1] CRAN (R 4.1.0)
   R.utils                2.11.0   2021-09-26 [1] CRAN (R 4.1.0)
   R6                     2.5.1    2021-08-19 [1] CRAN (R 4.1.0)
   Rcpp                   1.0.7    2021-07-07 [1] CRAN (R 4.1.0)
   RCurl                  1.98-1.5 2021-09-17 [1] CRAN (R 4.1.0)
   readr                  2.1.0    2021-11-11 [1] CRAN (R 4.1.0)
   rhdf5                  2.38.0   2021-10-26 [1] Bioconductor
   rhdf5filters           1.6.0    2021-10-26 [1] Bioconductor
   Rhdf5lib               1.16.0   2021-10-26 [1] Bioconductor
   rjson                  0.2.20   2018-06-08 [1] CRAN (R 4.1.0)
   rlang                  0.4.12   2021-10-18 [1] CRAN (R 4.1.1)
   rmarkdown              2.11     2021-09-14 [1] CRAN (R 4.1.0)
   rprojroot              2.0.2    2020-11-15 [1] CRAN (R 4.1.0)
   rstudioapi             0.13     2020-11-12 [1] CRAN (R 4.1.0)
   S4Vectors            * 0.32.2   2021-11-07 [1] Bioconductor
   sass                   0.4.0    2021-05-12 [1] CRAN (R 4.1.0)
   scales                 1.1.1    2020-05-11 [1] CRAN (R 4.1.0)
   scpcaTools             0.1.2    2021-10-12 [1] Github (AlexsLemonade/scpcaTools@2cdad4c)
   scuttle                1.4.0    2021-10-26 [1] Bioconductor
   sessioninfo            1.2.1    2021-11-02 [1] CRAN (R 4.1.0)
   SingleCellExperiment * 1.16.0   2021-10-26 [1] Bioconductor
   sparseMatrixStats      1.6.0    2021-10-26 [1] Bioconductor
   SpatialExperiment    * 1.4.0    2021-10-26 [1] Bioconductor
   stringi                1.7.5    2021-10-04 [1] CRAN (R 4.1.1)
   stringr                1.4.0    2019-02-10 [1] CRAN (R 4.1.0)
   SummarizedExperiment * 1.24.0   2021-10-26 [1] Bioconductor
   tibble                 3.1.6    2021-11-07 [1] CRAN (R 4.1.0)
   tidyr                  1.1.4    2021-09-27 [1] CRAN (R 4.1.0)
   tidyselect             1.1.1    2021-04-30 [1] CRAN (R 4.1.0)
   tinytex                0.35     2021-11-04 [1] CRAN (R 4.1.0)
   tzdb                   0.2.0    2021-10-27 [1] CRAN (R 4.1.1)
   utf8                   1.2.2    2021-07-24 [1] CRAN (R 4.1.0)
   vctrs                  0.3.8    2021-04-29 [1] CRAN (R 4.1.0)
   viridisLite            0.4.0    2021-04-13 [1] CRAN (R 4.1.0)
   vroom                  1.5.6    2021-11-10 [1] CRAN (R 4.1.0)
   withr                  2.4.2    2021-04-18 [1] CRAN (R 4.1.0)
   xfun                   0.28     2021-11-04 [1] CRAN (R 4.1.0)
   XVector                0.34.0   2021-10-26 [1] Bioconductor
   yaml                   2.2.1    2020-02-01 [1] CRAN (R 4.1.0)
   zlibbioc               1.40.0   2021-10-26 [1] Bioconductor

 [1] /Library/Frameworks/R.framework/Versions/4.1/Resources/library

 V ── Loaded and on-disk version mismatch.

────────────────────────────────────────────────────────────────────────────────────────────────────
LS0tCnRpdGxlOiAiU3BhdGlhbCBUcmFuc2NyaXB0b21pY3MgQmVuY2htYXJraW5nIgphdXRob3I6ICJBbGx5IEhhd2tpbnMgZm9yIENDREwiCm91dHB1dDogCiAgaHRtbF9ub3RlYm9vazoKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCi0tLQoKSW4gdGhpcyBub3RlYm9vayB3ZSBhcmUgY29tcGFyaW5nIHRoZSB1c2Ugb2YgQWxldmluLWZyeSBhbmQgU3BhY2VyYW5nZXIgZm9yIHF1YW50aWZ5aW5nIHNwYXRpYWwgdHJhbnNjcmlwdG9taWNzIGxpYnJhcmllcy4gClR3byBzcGF0aWFsIHRyYW5zY3JpcHRvbWljIGxpYnJhcmllcyB3ZXJlIHF1YW50aWZpZWQgdXNpbmcgQWxldmluLWZyeSBhbmQgU3BhY2VyYW5nZXIgYW5kIHRoZSByZXN1bHRzIHdlcmUgY29tYmluZWQgZm9sbG93aW5nIHRoZSBbQWxldmluLWZyeSB0dXRvcmlhbF0oaHR0cHM6Ly9jb21iaW5lLWxhYi5naXRodWIuaW8vYWxldmluLWZyeS10dXRvcmlhbHMvMjAyMS9hZi1zcGF0aWFsLykuIApXZSBhcmUgY29tcGFyaW5nIHRoYXQgdG8gaWYgd2Ugd2VyZSB0byBub3QgaW50ZWdyYXRlIHRoZSBTcGFjZXJhbmdlciBkYXRhIHdpdGggQWxldmluLWZyeSBhbmQgb25seSB1c2UgU3BhY2VyYW5nZXIuIApGb3Igc2ltcGxpY2l0eSB3ZSB3aWxsIG9ubHkgbG9vayBhdCBvbmUgbGlicmFyeSwgU0NQQ1IwMDAzNzIuCgojIyBTZXQgVXAKCmBgYHtyfQpsaWJyYXJ5KG1hZ3JpdHRyKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoU2luZ2xlQ2VsbEV4cGVyaW1lbnQpCmxpYnJhcnkoU3BhdGlhbEV4cGVyaW1lbnQpCmxpYnJhcnkoZ2d1cHNldCkKbGlicmFyeShncmlkRXh0cmEpCmBgYAoKYGBge3J9CiMgbG9hZCBpbiBiZW5jaG1hcmtpbmcgZnVuY3Rpb25zIHRoYXQgd2lsbCBiZSB1c2VkIGZvciBjb3B5aW5nIGRhdGEgYW5kIGdlbmVyYXRpbmcgc2FtcGxlIHRhYmxlcwpmdW5jdGlvbl9wYXRoIDwtIGZpbGUucGF0aCgiLi4iICwiYmVuY2htYXJraW5nLWZ1bmN0aW9ucyIsICJSIikKZmlsZS5wYXRoKGZ1bmN0aW9uX3BhdGgsIGxpc3QuZmlsZXMoZnVuY3Rpb25fcGF0aCwgcGF0dGVybiA9ICIqLlIkIikpICU+JQogIHB1cnJyOjp3YWxrKHNvdXJjZSkKYGBgCgoKYGBge3J9CiMgc2V0IHVwIGZpbGUgcGF0aHMgCmJhc2VfZGlyIDwtIGhlcmU6OmhlcmUoKQoKIyBvdXRwdXQgZm9sZGVyIHRvIHN0b3JlIGFsZXZpbi1mcnkgYW5kIGNlbGxyYW5nZXIgcXVhbnRzIGZyb20gUzMKZGF0YV9kaXIgPC0gZmlsZS5wYXRoKGJhc2VfZGlyLCAiZGF0YSIsICJzcGF0aWFsIikgCnMzX291dCA8LSBmaWxlLnBhdGgoZGF0YV9kaXIsICJkYXRhIiwgInF1YW50cyIpCgojIHJlc3VsdHMgZGlyZWN0b3J5IApyZXN1bHRzX2RpciA8LSBmaWxlLnBhdGgoZGF0YV9kaXIsICJyZXN1bHRzIikKCiMgc2FtcGxlIG5hbWUKc2FtcGxlX2lkIDwtIGMoIlNDUENSMDAwMzcyIikKCiMgY3JlYXRlIGRpcmVjdG9yaWVzCmlmKCFkaXIuZXhpc3RzKGRhdGFfZGlyKSl7CiAgZGlyLmNyZWF0ZShkYXRhX2RpciwgcmVjdXJzaXZlID0gVFJVRSkKfQoKaWYoIWRpci5leGlzdHMocmVzdWx0c19kaXIpKXsKICBkaXIuY3JlYXRlKHJlc3VsdHNfZGlyLCByZWN1cnNpdmUgPSBUUlVFKQp9CmBgYAoKCmBgYHtyfQptaXRvX2ZpbGUgPC0gZmlsZS5wYXRoKGJhc2VfZGlyLCAic2FtcGxlLWluZm8iLCAiSG9tb19zYXBpZW5zLkdSQ2gzOC4xMDMubWl0b2dlbmVzLnR4dCIpCiAgCiMgcmVhZCBpbiBtaXRvIGdlbmVzIAptaXRvX2dlbmVzIDwtIHJlYWRyOjpyZWFkX3RzdihtaXRvX2ZpbGUsIGNvbF9uYW1lcyA9ICJnZW5lX2lkIikKbWl0b19nZW5lcyA8LSBtaXRvX2dlbmVzICU+JQogIGRwbHlyOjpwdWxsKGdlbmVfaWQpICU+JQogIHVuaXF1ZSgpCmBgYAoKCiMjIEFsZXZpbi1mcnkgKyBTcGFjZXJhbmdlciB2ZXJzdXMgU3BhY2VyYW5nZXIgT25seQoKTm93IGxldCdzIHRha2UgYSBsb29rIGF0IGNvbXBhcmluZyB0aGUgdHdvIG1ldGhvZHMgb2YgdXNpbmcgQWxldmluLWZyeSArIFNwYWNlcmFuZ2VyIHRvIG9ubHkgU3BhY2VyYW5nZXIgZm9yIHF1YW50aWZpY2F0aW9uLiAKVG8gZG8gdGhpcywgd2Ugd2lsbCByZWFkIGluIHRoZSBBbGV2aW4tZnJ5ICsgU3BhY2VyYW5nZXIgY29tYmluZWQgYW5kIFNwYWNlcmFuZ2VyIG9ubHkgYFNwYXRpYWxFeHBlcmltZW50YCBvYmplY3RzIHNlcGFyYXRlbHkgYW5kIHRoZW4gbWVyZ2UgdGhlbSBpbnRvIG9uZSBsaXN0IGJlZm9yZSBncmFiYmluZyB0aGUgcGVyIGNlbGwgYW5kIHBlciBnZW5lIHF1YWxpdHkgbWV0cmljcy4gCgojIyMgQ3JlYXRlIFNwYXRpYWwgRXhwZXJpbWVudHMgCgpgYGB7cn0KIyBnZXQgcGF0aCB0byBmcnkgb3V0cHV0IGRpcmVjdG9yeSAKZnJ5X2RpciA8LSBmaWxlLnBhdGgoczNfb3V0LCAiYWxldmluLWZyeS1rbmVlIiwgc2FtcGxlX2lkKQpmcnlfZGlyIDwtIHBhc3RlMChmcnlfZGlyLCAiLXNwbGljZWRfaW50cm9uX3R4b21lX2szMS1zYWxpZ24tY3ItbGlrZS1lbS1rbmVlIikKCiMgcGF0aHMgdG8gc3BhdGlhbCBmb2xkZXJzIApjZWxscmFuZ2VyX2ZvbGRlciA8LSBwYXN0ZTAoc2FtcGxlX2lkLCAiLWNkbmEtc3BhdGlhbCIpCnNwYXRpYWxfZGlyIDwtIGZpbGUucGF0aChzM19vdXQsICJjZWxscmFuZ2VyIiwgY2VsbHJhbmdlcl9mb2xkZXIsICJvdXRzIiwgInNwYXRpYWwiKQpgYGAKCgpgYGB7cn0KIyByZWFkIGluIGNvbWJpbmVkIGZyeSBhbmQgc3BhY2VyYW5nZXIgc3BlIApmcnlfc3BlIDwtIGNyZWF0ZV9mcnlfc3BhY2VyYW5nZXJfc3BlKGZyeV9kaXIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzcGF0aWFsX2RpciwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNhbXBsZV9pZCkKYGBgCgpgYGB7cn0KIyBzcGFjZXJhbmdlciBvdXRwdXQgcGF0aHMKc3BhY2VyYW5nZXJfb3V0IDwtIGZpbGUucGF0aChzM19vdXQsICJjZWxscmFuZ2VyIiwgY2VsbHJhbmdlcl9mb2xkZXIsICJvdXRzIikKCiMgcmVhZCBpbiBzcGFjZXJhbmdlciBvdXRwdXQgZGlyZWN0bHkgdXNpbmcgcmVhZDEwWFZpc2l1bQpzcGFjZXJhbmdlcl9zcGUgPC0gY3JlYXRlX3NwYWNlcmFuZ2VyX3NwZShzcGFjZXJhbmdlcl9vdXQsIHNhbXBsZV9pZCkKYGBgCgojIyMgUGVyIFNwb3QgUUMgTWV0cmljcwoKTm93IHRoYXQgd2UgaGF2ZSByZWFkIGluIHRoZSBkYXRhIGFuZCBjcmVhdGVkIG91ciB0d28gYFNwYXRpYWxFeHBlcmltZW50YCBvYmplY3RzLCB3ZSBjYW4gZ28gYWhlYWQgYW5kIGNvbWJpbmUgdGhlbSBpbnRvIG9uZSBsaXN0IGFuZCB0aGVuIGNhbGN1bGF0ZSB0aGUgcGVyIHNwb3QgUUMgbWV0cmljcyB1c2luZyBgc2N1dHRsZTo6YWRkUGVyQ2VsbFFDTWV0cmljcygpLmAKCmBgYHtyfQojIGNyZWF0ZSBvbmUgbGlzdCB3aXRoIGJvdGggc3BlJ3MgdG9nZXRoZXIKYWxsX3NwZV9saXN0IDwtIGxpc3QoZnJ5X3NwZSwgc3BhY2VyYW5nZXJfc3BlKQpuYW1lcyhhbGxfc3BlX2xpc3QpIDwtIGMoImFsZXZpbi1mcnkiLCAic3BhY2VyYW5nZXIiKQoKIyBjYWxjdWxhdGUgcGVyIGNlbGwgUUMgYW5kIG91dHB1dCB0byBhIGNvbWJpbmVkIGRhdGEgZnJhbWUgd2l0aCBwbG90dGluZyAKYWxsX3NwZV9saXN0IDwtIGFsbF9zcGVfbGlzdCAlPiUKICAgIHB1cnJyOjptYXAoCiAgICAgIH4gc2N1dHRsZTo6YWRkUGVyQ2VsbFFDTWV0cmljcygueCwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzdWJzZXRzID0gbGlzdChtaXRvID0gbWl0b19nZW5lc1ttaXRvX2dlbmVzICVpbiUgcm93bmFtZXMoLngpXSkpKSAlPiUKICBwdXJycjo6bWFwKHNjdXR0bGU6OmFkZFBlckZlYXR1cmVRQ01ldHJpY3MpCmBgYAoKQWZ0ZXIgYWRkaW5nIGluIHRoZSBwZXIgc3BvdCBRQyBtZXRyaWNzIHRvIGJvdGggb2YgdGhlIHNwZSdzLCB3ZSB3YW50IHRvIGV4dHJhY3QgdGhlIGBjb2xEYXRhYCBmcm9tIGVhY2ggc3BlIGFuZCBjcmVhdGUgYSBkYXRhIGZyYW1lIHRoYXQgd2UgY2FuIHVzZSBmb3IgcGxvdHRpbmcuIApXZSB3aWxsIGFsc28gbmVlZCBzb21lIGluZm9ybWF0aW9uIGFib3V0IGVhY2ggc2FtcGxlIGFuZCBob3cgaXQgd2FzIHJ1biwgc28gd2Ugd2lsbCBjcmVhdGUgYSBzYW1wbGUgbWV0YWRhdGEgdGFibGUsIGBzYW1wbGVfaW5mb19kZmAgdGhhdCB3aWxsIHRoZW4gYmUgbWVyZ2VkIHdpdGggdGhlIGBjb2xEYXRhYC4gCgpgYGB7cn0KIyBjcmVhdGUgc2FtcGxlIGluZm8gZGF0YWZyYW1lIHRvIGJlIGpvaW5lZCB3aXRoIHBlciBzcG90IGRhdGFmcmFtZSBsYXRlcgpzYW1wbGVfaW5mb19kZiA8LSBxdWFudF9pbmZvX3RhYmxlKGRhdGFfZGlyPSBzM19vdXQsIAogICAgICAgICAgICAgICAgIHRvb2xzID0gYygiY2VsbHJhbmdlciIsICJhbGV2aW4tZnJ5LWtuZWUiKSwKICAgICAgICAgICAgICAgICBzYW1wbGVzID0gc2FtcGxlX2lkKSAlPiUKICAjIGNvbnZlcnQgY2VsbHJhbmdlciB0byBzcGFjZXJhbmdlciAKICBkcGx5cjo6bXV0YXRlKHRvb2wgPSBpZmVsc2UodG9vbCA9PSAiY2VsbHJhbmdlciIsICJzcGFjZXJhbmdlciIsIHRvb2wpKQpgYGAKCldoZW4gd2UgY29udmVydCB0aGUgYGNvbERhdGFgIHRvIGEgZGF0YSBmcmFtZSB3ZSB1c2UgdGhlIGN1c3RvbSBmdW5jdGlvbiwgYHNwYXRpYWxfY29sZGF0YV90b19kZigpYCB0byBkbyBzbyBhbmQgYXBwbHkgaXQgdG8gZWFjaCBzcGUgaW4gb3VyIGxpc3QuIApgYGB7cn0KIyBqb2luIGNvbGRhdGEgZGF0YWZyYW1lIHdpdGggc2FtcGxlIGluZm8KY29sZGF0YV9kZiA8LSBwdXJycjo6bWFwX2RmKGFsbF9zcGVfbGlzdCwgc3BhdGlhbF9jb2xkYXRhX3RvX2RmLCAuaWQgPSAidG9vbCIpICU+JQogICMgcmVtb3ZlIGV4dHJhIC0xIGZyb20gc3BhY2VyYW5nZXIgYmFyY29kZXMKICBkcGx5cjo6bXV0YXRlKHNwb3RfaWQgPSBnc3ViKCItMSIsICIiLCBzcG90X2lkKSkgJT4lCiAgZHBseXI6OmxlZnRfam9pbihzYW1wbGVfaW5mb19kZiwKICAgICAgICAgICAgICAgICAgIGJ5ID0gYygidG9vbCIpKQpgYGAKCk5vdyB3ZSBvbmx5IHdhbnQgdG8gZmlsdGVyIG91ciBkYXRhIGZyYW1lIHRvIGNvbnRhaW4gc3BvdHMgdGhhdCBhcmUgc2hhcmVkIGJldHdlZW4gYm90aCB0b29scyBhbmQgdGhvc2UgdGhhdCBhcmUgZm91bmQgdG8gYmUgb3ZlcmxhcHBpbmcgd2l0aCB0aGUgdGlzc3VlLiAKCmBgYHtyfQojIGlkZW50aWZ5IHNoYXJlZCBzcG90cyBvbmx5IApzcG90X2NvdW50cyA8LSBjb2xkYXRhX2RmICU+JSAgCiAgZHBseXI6OmNvdW50KHNwb3RfaWQsIHNhbXBsZSkKCmNvbW1vbl9zcG90cyA8LSBzcG90X2NvdW50cyAlPiUKICBkcGx5cjo6ZmlsdGVyKG4gPT0gMikgJT4lCiAgZHBseXI6OnB1bGwoc3BvdF9pZCkKCmNvbGRhdGFfZGZfY29tbW9uIDwtIGNvbGRhdGFfZGYgJT4lCiAgZHBseXI6OmZpbHRlcihzcG90X2lkICVpbiUgY29tbW9uX3Nwb3RzLAogICAgICAgICAgICAgICAgIyBvbmx5IGluY2x1ZGUgc3BvdHMgdGhhdCBvdmVybGFwIHdpdGggdGlzc3VlCiAgICAgICAgICAgICAgICBpbl90aXNzdWUgPT0gMSkKYGBgCgpXZSB3aWxsIGFsc28gbmVlZCB0byBmaWx0ZXIgdGhlIHNwZSdzIGRpcmVjdGx5IGJhc2VkIG9uIHNwb3RzIHRoYXQgYXJlIHByZXNlbnQgaW4gdGhlIHRpc3N1ZSwgc28gd2UgY3JlYXRlIGEgc21hbGwgZnVuY3Rpb24gdG8gZG8gdGhpcyBhbmQgdGhlbiBhcHBseSBpdCB0byBib3RoIHNwZSdzIGluIHRoZSBsaXN0LiAKCmBgYHtyfQojIHdlIHdpbGwgYWxzbyB3YW50IHRvIGZpbHRlciB0aGUgc3BlJ3MgZGlyZWN0bHkgCmZpbHRlcl9zcGUgPC0gZnVuY3Rpb24oc3BlKXsKICBzcGUgPC0gc3BlWywgc3BhdGlhbERhdGEoc3BlKSRpbl90aXNzdWUgPT0gMV0KfQoKYWxsX3NwZV9maWx0ZXIgPC0gYWxsX3NwZV9saXN0ICU+JQogIHB1cnJyOjptYXAoZmlsdGVyX3NwZSkKYGBgCgpXaGVuIHdlIGxvb2sgYXQgb3VyIHJlc3VsdHMsIHdlIHdpbGwgYWxzbyB3YW50IHRvIHZpc3VhbGl6ZSB0aGVtIHNvIHdlIHdpbGwgbWFrZSBhIGN1c3RvbSBmdW5jdGlvbiB0byBwbG90IHRoZSByZXN1bHRzLgpCZWNhdXNlIG9mIHRoZSBidWcgdGhhdCBpcyBwcmVzZW50IGluIGBTcGF0aWFsRXhwZXJpbWVudDo6cmVhZDEwWFZpc2l1bSgpYCBmdW5jdGlvbiwgd2Ugd2lsbCBtYWtlIHR3byBzZXBhcmF0ZSBmdW5jdGlvbnMsIG9uZSBmb3Igc3BhY2VyYW5nZXIgb25seSBzcGVzIGFuZCBvbmUgZm9yIGFsZXZpbi1mcnkgKyBzcGFjZXJhbmdlciBzcGVzLgoKYGBge3J9CiMgY3VzdG9tIGZ1bmN0aW9uIGZvciBwbG90dGluZyBzcGUgcmVzdWx0cyBhbmQgY29sb3JpbmcgYnkgY29sdW1uIG9mIGNvbERhdGEgb2YgY2hvaWNlCnBsb3RfZnJ5X3NwZSA8LSBmdW5jdGlvbihzcGUsIHNhbXBsZSwgY29sdW1uKXsKICAjIHBsb3Qgc3BvdHMgb25seSAKICBwMSA8LSBnZ3NwYXZpczo6cGxvdFNwb3RzKHNwZSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICB4X2Nvb3JkID0gInB4bF9jb2xfaW5fZnVsbHJlcyIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgeV9jb29yZCA9ICJweGxfcm93X2luX2Z1bGxyZXMiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFubm90YXRlID0gY29sdW1uKSArCiAgICBzY2FsZV9jb2xvcl92aXJpZGlzX2MoKQogIAogICMgcGxvdCB3aXRoIHRpc3N1ZSB1bmRlcm5lYXRoCiAgcDIgPC0gZ2dzcGF2aXM6OnBsb3RWaXNpdW0oc3BlLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB4X2Nvb3JkID0gInB4bF9jb2xfaW5fZnVsbHJlcyIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHlfY29vcmQgPSAicHhsX3Jvd19pbl9mdWxscmVzIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsbCA9IGNvbHVtbikgKwogICAgc2NhbGVfZmlsbF92aXJpZGlzX2MoKQogIAogICMgYXJyYW5nZSBwbG90cyBhbmQgYWRkIHNhbXBsZSBuYW1lIGFzIHRpdGxlIAogIGdyaWQuYXJyYW5nZShwMSwgcDIsIG5yb3cgPSAxLCB0b3AgPSBncmlkOjp0ZXh0R3JvYihzYW1wbGUpKQp9CgoKcGxvdF9zcGFjZXJhbmdlcl9zcGUgPC0gZnVuY3Rpb24oc3BlLCBzYW1wbGUsIGNvbHVtbil7CiAgIyBwbG90IHNwb3RzIG9ubHkgCiAgcDEgPC0gZ2dzcGF2aXM6OnBsb3RTcG90cyhzcGUsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBzd2l0Y2ggdGhlIG9yZGVyIG9mIHJvdyBhbmQgY29sIHRvIGZsaXAgdGhlIGltYWdlIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgeF9jb29yZCA9ICJweGxfcm93X2luX2Z1bGxyZXMiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHlfY29vcmQgPSAicHhsX2NvbF9pbl9mdWxscmVzIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBhbm5vdGF0ZSA9IGNvbHVtbikgKwogICAgc2NhbGVfY29sb3JfdmlyaWRpc19jKCkgCiAgCiAgIyBwbG90IHdpdGggdGlzc3VlIHVuZGVybmVhdGgKICBwMiA8LSBnZ3NwYXZpczo6cGxvdFZpc2l1bShzcGUsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHhfY29vcmQgPSAicHhsX3Jvd19pbl9mdWxscmVzIiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeV9jb29yZCA9ICJweGxfY29sX2luX2Z1bGxyZXMiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWxsID0gY29sdW1uKSArCiAgICBzY2FsZV9maWxsX3ZpcmlkaXNfYygpCiAgCiAgIyBhcnJhbmdlIHBsb3RzIGFuZCBhZGQgc2FtcGxlIG5hbWUgYXMgdGl0bGUgCiAgZ3JpZC5hcnJhbmdlKHAxLCBwMiwgbnJvdyA9IDEsIHRvcCA9IGdyaWQ6OnRleHRHcm9iKHNhbXBsZSkpCiAgCn0KYGBgCgpGaXJzdCB3ZSB3aWxsIGxvb2sgYXQgdGhlIHBlciBjZWxsIG1ldHJpY3M6IG1pdG9jaG9uZHJpYWwgcmVhZHMgcGVyIGNlbGwsIHRvdGFsIFVNSSBwZXIgY2VsbCwgYW5kIHRvdGFsIGdlbmVzIGRldGVjdGVkIHBlciBjZWxsLiAKCmBgYHtyfQojICUgbWl0b2Nob25kcmlhbCByZWFkcy8gc3BvdCAKZ2dwbG90KGNvbGRhdGFfZGZfY29tbW9uLCBhZXMoeCA9IHRvb2wsIHkgPSBzdWJzZXRzX21pdG9fcGVyY2VudCwgZmlsbCA9IHRvb2wpKSArIAogIGdlb21fYm94cGxvdCgpICsKICB0aGVtZV9jbGFzc2ljKCkgKyAKICB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDQ1LCBoanVzdCA9IDEpKSArIAogIHlsYWIoIk1pdG8gUGVyY2VudCIpICsgCiAgeGxhYigiIikKYGBgCmBgYHtyfQpwbG90X2ZyeV9zcGUoYWxsX3NwZV9maWx0ZXIkYGFsZXZpbi1mcnlgLCAiYWxldmluLWZyeSIsICJzdWJzZXRzX21pdG9fcGVyY2VudCIpCmBgYApgYGB7cn0KcGxvdF9zcGFjZXJhbmdlcl9zcGUoYWxsX3NwZV9maWx0ZXIkc3BhY2VyYW5nZXIsICJzcGFjZXJhbmdlciIsICJzdWJzZXRzX21pdG9fcGVyY2VudCIpCmBgYApPdmVyYWxsIGl0IGxvb2tzIGxpa2UgbWl0b2Nob25kcmlhbCBjb250ZW50IGlzIGxvdyBhbmQgZmFpcmx5IHNpbWlsYXIgYWNyb3NzIGJvdGggdG9vbHMuIAoKCmBgYHtyfQojIHRvdGFsIFVNSS8gc3BvdCAKZ2dwbG90KGNvbGRhdGFfZGZfY29tbW9uLCBhZXMoeCA9IHN1bSwgY29sb3IgPSB0b29sKSkgKyAKICBnZW9tX2RlbnNpdHkoKSArIAogIHRoZW1lX2NsYXNzaWMoKSArIAogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gNDUsIGhqdXN0ID0gMSkpICsgCiAgeWxhYigiVU1JL3Nwb3QiKSArIAogIHhsYWIoIiIpCmBgYApgYGB7cn0KcGxvdF9mcnlfc3BlKGFsbF9zcGVfZmlsdGVyJGBhbGV2aW4tZnJ5YCwgImFsZXZpbi1mcnkiLCAic3VtIikKYGBgCgpgYGB7cn0KcGxvdF9zcGFjZXJhbmdlcl9zcGUoYWxsX3NwZV9maWx0ZXIkc3BhY2VyYW5nZXIsICJzcGFjZXJhbmdlciIsICJzdW0iKQpgYGAKCmBgYHtyfQojIHRvdGFsIGdlbmVzLyBzcG90IApnZ3Bsb3QoY29sZGF0YV9kZl9jb21tb24sIGFlcyh4ID0gZGV0ZWN0ZWQsIGNvbG9yID0gdG9vbCkpICsgCiAgZ2VvbV9kZW5zaXR5KCkgKyAKICB0aGVtZV9jbGFzc2ljKCkgKyAKICB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDQ1LCBoanVzdCA9IDEpKSArIAogIHlsYWIoIkdlbmVzIGRldGVjdGVkL3Nwb3QiKSArIAogIHhsYWIoIiIpIApgYGAKYGBge3J9CnBsb3RfZnJ5X3NwZShhbGxfc3BlX2ZpbHRlciRgYWxldmluLWZyeWAsICJhbGV2aW4tZnJ5IiwgImRldGVjdGVkIikKYGBgCgpgYGB7cn0KcGxvdF9zcGFjZXJhbmdlcl9zcGUoYWxsX3NwZV9maWx0ZXIkc3BhY2VyYW5nZXIsICJzcGFjZXJhbmdlciIsICJkZXRlY3RlZCIpCmBgYApHZW5lcmFsbHkgaXQgbG9va3MgbGlrZSBib3RoIHRvb2xzIGFyZSBmYWlybHkgc2ltaWxhciBpbiB0aGUgbnVtYmVyIG9mIFVNSS9jZWxsIGFuZCBnZW5lcyBkZXRlY3RlZC9jZWxsLgoKIyMjIFBlciBHZW5lIFFDIE1ldHJpY3MKCkxldCdzIGFsc28gbG9vayBhdCB0aGUgY29ycmVsYXRpb24gb2YgbWVhbiBnZW5lIGV4cHJlc3Npb24gYWNyb3NzIHNoYXJlZCBnZW5lcy4gCldlIHdpbGwgZmlyc3QgbmVlZCB0byBjYWxjdWxhdGUgdGhlIHBlciBmZWF0dXJlIFFDIG9uIHRoZSBmaWx0ZXJlZCBzcGVzIGFmdGVyIHJlbW92aW5nIHNwb3RzIG5vdCBwcmVzZW50IGluIHRoZSB0aXNzdWUgYW5kIHRoZW4gZ3JhYiB0aGUgYHJvd0RhdGFgIGFuZCBjb21iaW5lIGludG8gYSBkYXRhIGZyYW1lIHVzZWQgZm9yIHBsb3R0aW5nLiAKCmBgYHtyfQphbGxfc3BlX2ZpbHRlciA8LSBhbGxfc3BlX2ZpbHRlciAlPiUKICBwdXJycjo6bWFwKHNjdXR0bGU6OmFkZFBlckZlYXR1cmVRQ01ldHJpY3MpCmBgYAoKYGBge3J9CiMgZ3JhYiByb3dkYXRhIGFuZCBjb21iaW5lIHdpdGggc2FtcGxlIGluZm8Kcm93ZGF0YV9kZiA8LSBwdXJycjo6bWFwX2RmKGFsbF9zcGVfZmlsdGVyLCBzcGF0aWFsX3Jvd2RhdGFfdG9fZGYsIC5pZCA9ICJ0b29sIikgJT4lCiAgZHBseXI6OmxlZnRfam9pbihzYW1wbGVfaW5mb19kZiwKICAgICAgICAgICAgICAgICAgIGJ5ID0gYygidG9vbCIpKQpgYGAKCldlIHRoZW4gd2FudCB0byBmaWx0ZXIgb3V0IGFueSBsb3dseSBkZXRlY3RlZCBnZW5lcywgKGRldGVjdGVkIDwgNS4wKSBhbmQgcmVzdHJpY3Qgb3VyIGFuYWx5c2lzIHRvIHRob3NlIGdlbmVzIHRoYXQgYXJlIGZvdW5kIGluIGJvdGggdG9vbHMuIAoKYGBge3J9CmdlbmVfY291bnRzIDwtIHJvd2RhdGFfZGYgJT4lIAogICMgcmVtb3ZlIGdlbmVzIHRoYXQgaGF2ZSBhIGxvdyBmcmVxdWVuY3kgb2YgYmVpbmcgZGV0ZWN0ZWQKICBkcGx5cjo6ZmlsdGVyKGRldGVjdGVkID49IDUuMCkgJT4lCiAgZHBseXI6OmNvdW50KGdlbmVfaWQsIHNhbXBsZSkKCiMgcmVzdHJpY3QgdG8gb25seSBjb21tb24gZ2VuZXMgCmNvbW1vbl9nZW5lcyA8LSBnZW5lX2NvdW50cyAlPiUKICBkcGx5cjo6ZmlsdGVyKG4gPT0gMikgJT4lCiAgZHBseXI6OnB1bGwoZ2VuZV9pZCkKCnJvd2RhdGFfZGZfY29tbW9uIDwtIHJvd2RhdGFfZGYgJT4lCiAgZHBseXI6OmZpbHRlcigKICAgIChnZW5lX2lkICVpbiUgY29tbW9uX2dlbmVzKSAKICApCmBgYAoKYGBge3J9CiMgY3JlYXRlIGEgdGFibGUgdG8gY2FsY3VsYXRlIGNvcnJlbGF0aW9uIGJldHdlZW4gbWVhbiBnZW5lIGV4cHJlc3Npb24Kcm93ZGF0YV9jb3IgPC0gcm93ZGF0YV9kZl9jb21tb24gJT4lCiAgZHBseXI6OnNlbGVjdCh0b29sLCBnZW5lX2lkLCBzYW1wbGUsIG1lYW4pICU+JQogICMgc3ByZWFkIHRoZSBtZWFuIGV4cHJlc3Npb24gc3RhdHMgdG8gb25lIGNvbHVtbiBwZXIgY2FsbGVyCiAgdGlkeXI6OnBpdm90X3dpZGVyKGlkX2NvbHMgPSBjKGdlbmVfaWQsIHNhbXBsZSksCiAgICAgICAgICAgICAgICAgICAgIG5hbWVzX2Zyb20gPSBjKCJ0b29sIiksCiAgICAgICAgICAgICAgICAgICAgIHZhbHVlc19mcm9tID0gbWVhbikgJT4lCiAgIyBkcm9wIHJvd3Mgd2l0aCBOQSB2YWx1ZXMgdG8gZWFzZSBjb3JyZWxhdGlvbiBjYWxjdWxhdGlvbgogIHRpZHlyOjpkcm9wX25hKCkKYGBgCgpgYGB7cn0KIyBsb29rIGF0IGNvcnJlbGF0aW9uIGJldHdlZW4gdGhlIHR3byB0b29scwpyb3dkYXRhX2NvciAlPiUgCiAgZHBseXI6Omdyb3VwX2J5KHNhbXBsZSkgJT4lCiAgZHBseXI6OnN1bW1hcml6ZSgKICAgIGFsZXZpbl9mcnlfa25lZV9zcGFjZXJhbmdlcl9jb3IgPSBjb3IoYHNwYWNlcmFuZ2VyYCwgYGFsZXZpbi1mcnlgLCBtZXRob2QgPSAic3BlYXJtYW4iKQogICkKYGBgCgpgYGB7cn0KIyBtZWFuIGdlbmUgZXhwcmVzc2lvbiBhY3Jvc3Mgc2hhcmVkIGdlbmVzIApnZ3Bsb3Qocm93ZGF0YV9jb3IsIGFlcyh4ID0gYHNwYWNlcmFuZ2VyYCwgeSA9IGBhbGV2aW4tZnJ5YCkpICsKICBnZW9tX3BvaW50KHNpemUgPSAwLjUsIGFscGhhID0gMC4xKSArIAogIHNjYWxlX3hfbG9nMTAoKSArIAogIHNjYWxlX3lfbG9nMTAoKSArIAogIGxhYnMoeCA9ICJTcGFjZXJhbmdlciBtZWFuIGdlbmUgZXhwcmVzc2lvbiIsIHkgPSAiQWxldmluIEZyeSBNZWFuIGdlbmUgZXhwcmVzc2lvbiIpICsgCiAgdGhlbWVfY2xhc3NpYygpCmBgYApDb3JyZWxhdGlvbiBhcHBlYXJzIHRvIGJlIHF1aXRlIGhpZ2ggYmV0d2VlbiBtZWFuIGdlbmUgZXhwcmVzc2lvbiBpbiBTcGFjZXJhbmdlciBhbmQgQWxldmluLWZyeSwgaG93ZXZlciwgd2UgZG8gc2VlIHRoYXQgdGhlcmUgaXMgYSBzdWJzZXQgb2YgZ2VuZXMgdGhhdCBoYXZlIGhpZ2hlciBnZW5lIGV4cHJlc3Npb24gaW4gU3BhY2VyYW5nZXIgdGhhbiBpbiBBbGV2aW4tZnJ5IGFuZCBhcmUgc2xpZ2h0bHkgb2ZmIHRoZSBkaWFnb25hbC4gCgojIyMgU2hhcmVkIGdlbmVzIGFjcm9zcyB0b29scwoKVGhlIGZpbmFsIHRoaW5nIHdlIHdpbGwgbG9vayBhdCBpcyB0aGUgb3ZlcmxhcCBvZiBnZW5lcyBkZXRlY3RlZCBpbiBlYWNoIHRvb2wuIApGaXJzdCB3ZSBuZWVkIHRvIGZpbHRlciB0aGUgYFNwYXRpYWxFeHBlcmltZW50YCBvYmplY3RzIHRvIG9ubHkgaGF2ZSBzcG90cyB0aGF0IGFyZSBmb3VuZCBpbiBib3RoIHRvb2xzIGFuZCB0aGVuIHdlIGZpbHRlciB0byBpbmNsdWRlIG9ubHkgZ2VuZXMgdGhhdCBhcmUgZm91bmQgaW4gYm90aCBpbmRpY2VzIGJlZm9yZSBsb29raW5nIGF0IHRoZSBvdmVybGFwLiAKCmBgYHtyfQojIG1ha2UgYSBmdW5jdGlvbiB0byBmaWx0ZXIgc2NlcyBieSBzdWJzZXQgb2Ygc3BvdHMgYW5kIHJlLWNhbGN1bGF0ZSBmZWF0dXJlIHN0YXRzCmZpbHRlcl9zcGUgPC0gZnVuY3Rpb24oc3BlLCBzcG90cyl7CiAgIyByZW1vdmUgIi0xIiBhdCBlbmQgb2YgYmFyY29kZSBmb3Igc3BhY2VyYW5nZXIgc3BlcwogIGNvbG5hbWVzKHNwZSkgPC0gZ3N1YigiLTEiLCAiIiwgY29sbmFtZXMoc3BlKSkKICBjZWxsc190b19rZWVwIDwtIGNvbG5hbWVzKHNwZSkgJWluJSBzcG90cwogIHJvd0RhdGEoc3BlKSA8LSBOVUxMCiAgc3BlWywgY2VsbHNfdG9fa2VlcF0gJT4lCiAgICBzY3V0dGxlOjphZGRQZXJGZWF0dXJlUUNNZXRyaWNzKCkKfQpgYGAKCmBgYHtyfQojIGZpbHRlciBhbGwgc3BlcyB0byBvbmx5IGhhdmUgY29tbW9uIHNwb3RzIApzcGVfbGlzdF9jb21tb24gPC0gYWxsX3NwZV9maWx0ZXIgJT4lCiAgcHVycnI6Om1hcChmaWx0ZXJfc3BlLCBzcG90cyA9IGNvbW1vbl9zcG90cykKCiMgZ3JhYiByb3dkYXRhIGZyb20gZmlsdGVyZWQgc2NlcyAKcm93ZGF0YV9kZl9maWx0ZXJlZCA8LSBwdXJycjo6bWFwX2RmKHNwZV9saXN0X2NvbW1vbiwgc3BhdGlhbF9yb3dkYXRhX3RvX2RmLCAuaWQgPSAidG9vbCIpICU+JQogIGRwbHlyOjpsZWZ0X2pvaW4oc2FtcGxlX2luZm9fZGYsCiAgICAgICAgICAgICAgICAgICBieSA9IGMoInRvb2wiKSkKYGBgCgoKYGBge3J9CiMgZ2V0IGdlbmVzIGNvbW1vbiBpbiBhbGwgdG9vbHMKY29tbW9uX2dlbmVzIDwtIHJvd2RhdGFfZGZfZmlsdGVyZWQgJT4lCiAgZHBseXI6OnNlbGVjdChnZW5lX2lkLCB0b29sKSAlPiUKICBkcGx5cjo6ZGlzdGluY3QoKSAlPiUKICBkcGx5cjo6Z3JvdXBfYnkoZ2VuZV9pZCkgJT4lCiAgZHBseXI6OnRhbGx5KCkgJT4lCiAgIyBmaWx0ZXIgZm9yIGdlbmVzIGZvdW5kIGluIGJvdGggc3BhY2VyYW5nZXIgYW5kIGFsZXZpbi1mcnkKICBkcGx5cjo6ZmlsdGVyKG4gPT0gMikgJT4lCiAgZHBseXI6OnB1bGwoZ2VuZV9pZCkKCiMgZmlsdGVyIHJvd2RhdGFfZGYgdG8gb25seSBpbmNsdWRlIGdlbmVzIGZvdW5kIGluIGFsbCB0b29scyBhbmQgZ2VuZXMgd2l0aCBtZWFuID4gMCBhbmQgZGV0ZWN0ZWQgPiAwIGluIGFsbCBjZWxscwpyb3dkYXRhX2RmX2ZpbHRlcmVkIDwtIHJvd2RhdGFfZGZfZmlsdGVyZWQgJT4lIAogIGRwbHlyOjpmaWx0ZXIoZ2VuZV9pZCAlaW4lIGNvbW1vbl9nZW5lcykgJT4lCiAgZHBseXI6OmZpbHRlcihtZWFuID4gMCAmIGRldGVjdGVkID4gMCkKYGBgCgoKYGBge3J9CiMgY3JlYXRlIHVwc2V0IHBsb3QgCmdlbmVfZGV0ZWN0X2RmIDwtIHJvd2RhdGFfZGZfZmlsdGVyZWQgJT4lCiAgZHBseXI6Omdyb3VwX2J5KGdlbmVfaWQpICU+JQogIGRwbHlyOjpzdW1tYXJpc2UodG9vbHNfZGV0ZWN0ZWQgPSBsaXN0KHVuaXF1ZSh0b29sKSkpCgpnZ3Bsb3QoZ2VuZV9kZXRlY3RfZGYsIGFlcyh4ID0gdG9vbHNfZGV0ZWN0ZWQpKSArCiAgZ2VvbV9iYXIoKSArCiAgc2NhbGVfeF91cHNldChuX2ludGVyc2VjdGlvbnMgPSAzKQpgYGAKClNpbWlsYXIgdG8gd2l0aCB0aGUgc2luZ2xlLWNlbGwgZGF0YSBtb3N0IGdlbmVzIGFyZSBkZXRlY3RlZCBpbiBib3RoIEFsZXZpbi1mcnkgYW5kIFNwYWNlcmFuZ2VyIHdoaWNoIGlzIGdvb2QuIAoKIyMgQ29uY2x1ZGluZyB0aG91Z2h0cyAKCi0gQWxldmluLWZyeSBhbmQgU3BhY2VyYW5nZXIgb25seSByZXN1bHQgaW4gc2ltaWxhciBkaXN0cmlidXRpb25zIG9mIFVNSS9zcG90IGFuZCBnZW5lcy9zcG90LCBhbHRob3VnaCBpdCBpcyBub3QgcXVpdGUgYXMgbmljZSBhcyB0aGUgb3ZlcmxheSB5b3Ugc2VlIHdpdGggc2luZ2xlLWNlbGwgbGlicmFyaWVzLiAKLSBCb3RoIHRvb2xzIGFsc28gc2hvdyBoaWdoIGNvcnJlbGF0aW9uIGluIG1lYW4gZ2VuZSBleHByZXNzaW9uIGFuZCBoaWdoIG92ZXJsYXAgaW4gdGhlIGdlbmVzIHRoYXQgYXJlIGRldGVjdGVkLgoKIyMgU2Vzc2lvbiBJbmZvCgpgYGB7cn0Kc2Vzc2lvbmluZm86OnNlc3Npb25faW5mbygpCmBgYAoK